home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Netware Super Library
/
Netware Super Library.iso
/
zipfiles
/
p2z
/
segue.exe
/
NSPLFRM.PRG
< prev
next >
Wrap
Text File
|
1991-10-28
|
1KB
|
42 lines
*.............................................................................
*
* Program Name: NSPLFRM.PRG Copyright: HRF Associates, Inc.
* Date Created: 10/28/11 Language: Clipper
* Time Created: 22:44:21 Author: Bob Fogle
*
*.............................................................................
* Supplemental SEGUE function for specifiying document print form name.
* Functionally equivilent to N_SPLFRM function in NETLIB library.
*
FUNCTION NSPLFRM_
*Purpose : To specify banner page text.
*Usage : NSPLFRM_([<expC1>])
* :
* Where : <expC1> = Form Name.
* :
* :
PARAMETERS splfrm
LOCAL msplfrm
PRIVATE rtn :=0
do while .t.
* Check to make sure passed variable types are correct.
if valtype(splfrm)<>'C' .AND. splfrm<>nil
rtn = -101
exit
endi
* Set up defaults
msplfrm = if(valtype(splfrm)=='C',splfrm,nil)
* Get/Set form name
if pcount()=0 // If no arguments, return current setting.
rtn = PRJBDFG(14) // Get Default Print Job Flags (Form Name)
else
rtn = PRJBDFS(,,,,,,,,,,,,,msplfrm) // Set Default Print Job Flags (Form Name)
endi
exit
endd
RETURN rtn